home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cuactls.bas < prev    next >
Encoding:
BASIC Source File  |  1995-03-26  |  3.4 KB  |  137 lines
  1. Option Explicit
  2.  
  3. ' GUI standard emulation codes (ConfigCUA())
  4.  
  5. Global Const OS2Mode = 32759
  6. Global Const Windows3Mode = 32760
  7. Global Const Windows4Mode = 32761
  8. Global Const BorlandMode = 32762
  9. Global Const CPSMode = 32763
  10.  
  11. Global CUAMode As Integer
  12.  
  13. ' Border styles
  14.  
  15. Global Const BORDER_NONE = 0
  16. Global Const BORDER_SINGLE = 1
  17. Global Const BORDER_SHADOW = 2
  18. Global Const BORDER_SUNKEN = 3
  19. Global Const BORDER_RAISED = 4
  20. Global Const BORDER_DIP = 5
  21. Global Const BORDER_BUMP = 6
  22. Global Const BORDER_SUNKENSINGLE = 7
  23. Global Const BORDER_RAISEDSINGLE = 8
  24.  
  25. ' Tool button image source
  26.  
  27. Global Const BTNSOURCE_STOCK = 0
  28. Global Const BTNSOURCE_CUSTOM = 1
  29.  
  30. ' Tool button states
  31.  
  32. Global Const BTNSTATE_UP = 0
  33. Global Const BTNSTATE_DOWN = 1
  34. Global Const BTNSTATE_INDETERMINATE = 2
  35.  
  36. ' Tool button types
  37.  
  38. Global Const BTNTYPE_COMMAND = 0
  39. Global Const BTNTYPE_TOGGLE = 1
  40.  
  41. ' Check button values
  42.  
  43. Global Const CHECK_UNCHECKED = 0
  44. Global Const CHECK_CHECKED = 1
  45. Global Const CHECK_INDETERMINATE = 2
  46.  
  47. ' Text styles
  48.  
  49. Global Const FONT_NORMAL = 0
  50. Global Const FONT_SUNKEN = 1
  51. Global Const FONT_RAISED = 2
  52.  
  53. ' Lamp styles and colors
  54.  
  55. Global Const LAMP_MICRO = 0
  56. Global Const LAMP_SMALL = 1
  57. Global Const LAMP_ICON = 2
  58. Global Const LAMP_LARGE = 3
  59.  
  60. Global Const LAMP_GRAY = 0
  61. Global Const LAMP_GREEN = 1
  62. Global Const LAMP_YELLOW = 2
  63. Global Const LAMP_RED = 3
  64.  
  65. ' Check button/Radio button alignment
  66.  
  67. Global Const OBJALIGN_LEFT = 0
  68. Global Const OBJALIGN_RIGHT = 1
  69.  
  70. ' Orientation (meter, slider, spin)
  71.  
  72. Global Const ORIENT_HORZ = 0
  73. Global Const ORIENT_VERT = 1
  74.  
  75. ' Picture alignment on command buttons
  76.  
  77. Global Const PICALIGN_LEFT = 0
  78. Global Const PICALIGN_TOP = 1
  79.  
  80. ' Standard status bar field
  81.  
  82. Global Const STATUS_BLANK = 0
  83. Global Const STATUS_INS = 1
  84. Global Const STATUS_CAPS = 2
  85. Global Const STATUS_NUM = 3
  86. Global Const STATUS_SCROLL = 4
  87. Global Const STATUS_DATE = 5
  88. Global Const STATUS_TIME = 6
  89.  
  90. ' Standard Command/Toolbutton images
  91.  
  92. Global Const STDBUTTON_BLANK = 0
  93. Global Const STDBUTTON_OK = 1
  94. Global Const STDBUTTON_CANCEL = 2
  95. Global Const STDBUTTON_HELP = 3
  96. Global Const STDBUTTON_NEW = 4
  97. Global Const STDBUTTON_OPEN = 5
  98. Global Const STDBUTTON_SAVE = 6
  99. Global Const STDBUTTON_PRINT = 7
  100. Global Const STDBUTTON_EXIT = 8
  101. Global Const STDBUTTON_CUT = 9
  102. Global Const STDBUTTON_COPY = 10
  103. Global Const STDBUTTON_PASTE = 11
  104. Global Const STDBUTTON_UNDO = 12
  105. Global Const STDBUTTON_MHELP = 13
  106. Global Const STDBUTTON_FIRST = 14
  107. Global Const STDBUTTON_PREV = 15
  108. Global Const STDBUTTON_NEXT = 16
  109. Global Const STDBUTTON_LAST = 17
  110. Global Const STDBUTTON_NEWREC = 18
  111. Global Const STDBUTTON_ASC = 19
  112. Global Const STDBUTTON_DESC = 20
  113. Global Const STDBUTTON_FIND = 21
  114. Global Const STDBUTTON_FINDNEXT = 22
  115. Global Const STDBUTTON_REPLACE = 23
  116. Global Const STDBUTTON_ZOOM = 24
  117. Global Const STDBUTTON_LOOK = 25
  118. Global Const STDBUTTON_MAIL = 26
  119. Global Const STDBUTTON_PALETTE = 27
  120. Global Const STDBUTTON_STOP = 28
  121. Global Const STDBUTTON_BACK = 29
  122. Global Const STDBUTTON_DROP = 30
  123. Global Const STDBUTTON_INDEX = 31
  124. Global Const STDBUTTON_BOOK = 32
  125. Global Const STDBUTTON_LOCK = 33
  126. Global Const STDBUTTON_JUST = 34
  127. Global Const STDBUTTON_LEFT = 35
  128. Global Const STDBUTTON_CENTER = 36
  129. Global Const STDBUTTON_RIGHT = 37
  130. Global Const STDBUTTON_BOLD = 38
  131. Global Const STDBUTTON_ITALIC = 39
  132. Global Const STDBUTTON_UNDERLINE = 40
  133.  
  134. Declare Sub ConfigCUA Lib "CUARUN10.DLL" (ByVal Mode As Integer, ByVal Redraw As Integer)
  135.  
  136.  
  137.